home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / cbuket / combuket.bas < prev    next >
BASIC Source File  |  1994-10-07  |  2KB  |  52 lines
  1.  
  2. ' keep bucket on top
  3. Declare Sub SetWindowPos Lib "User" (ByVal Wnd%, ByVal WndInsertAfter%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal Flags%)
  4. 'SetWindowPos CompressBucket.hWnd, HWND_TOPMOST, 0, 0, 0, 0, &H40
  5. 'SetWindowPos CompressBucket.hWnd, HWND_NOTOPMOST, 0, 0, 0, 0, &H40
  6.  
  7. Global Const HWND_TOPMOST = -1
  8. Global Const HWND_NOTOPMOST = -2
  9.    
  10.  
  11. ' remove following rem for synchronou operation (see SUB DragDrop1_Drop)
  12. 'Declare Function GetModuleUsage% Lib "Kernel" (ByVal hModule%)
  13.  
  14. ' for private ini profiles
  15. 'Declare Function GetPrivateProfileInt Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal nDefault As Integer, ByVal lpFileName$) As Integer
  16. Declare Function GetPrivateProfileString Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpDefault$, ByVal lpReturnedString$, ByVal nSize%, ByVal lpFileName$) As Integer
  17. 'Declare Function WritePrivateProfileString Lib "Kernel" (ByVal lpAppName$, ByVal lpKeyName$, ByVal lpString$, ByVal lpFileName$) As Integer
  18.  
  19. Global lpAppName$
  20. Global lpHelpFile$
  21. Global lpFileName$
  22. Global lpString$
  23. Global lpKeyName$
  24. Global lpDefault$
  25. Global lpReturnedString$
  26. Global nSize%
  27.  
  28. Global WorkFile As String
  29. Global CompFile As String
  30. Global WorkingDir As String
  31.  
  32. Sub main ()
  33.  
  34.      lpDefault$ = "unknown"
  35.      lpReturnedString$ = Space$(128)
  36.      nSize% = 128
  37.      lpFileName$ = "c:\windows\combuket.ini"
  38.  
  39.      lpAppName$ = "system"
  40.      
  41.      lpKeyName$ = "WorkDir"
  42.      lpReturnedString$ = Space$(128)
  43.      Temp% = GetPrivateProfileString%(lpAppName$, lpKeyName$, lpDefault$, lpReturnedString$, nSize%, lpFileName$)
  44.           TempString$ = Trim$(lpReturnedString$)
  45.           t% = Len(TempString$) - 1
  46.      WorkingDir = Left$(TempString$, t%)
  47.  
  48.      CompressBucket.Show
  49.  
  50. End Sub
  51.  
  52.